home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
NUMBERS.SWG
/
0003_BIT_GET.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
227b
|
11 lines
{ You can use multiplies of 2 like: }
Function Find_Bit(B, c : Byte) : Byte;
{c is the position c=0 far right c=7 far left
returns 0 or 1}
begin
if b MOD (b shl c) = 0 then Find_Bit := 0
else Find_Bit := 1
end;